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1 .eqs. °"* th 1_= Sstat 

Feeipe tit), .eas. Re RING then 
a Nes. then write sys 


e 

= 

= f$message (p1 

2 fee lenent ( Ms 91) 
= fSelement ( -pl) 

py eas. “NORMAL” then goto normal 


1 .eqs. ‘'NOMSG 


— 
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then goto nomsg 
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/Libr=sys$help:errorlib.hlb/noprompt/nopage/noinst/nolibl/nouser ‘pl 'p2 
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lL: 
e sys$Soutput ‘"’ 
e sysSoutput ‘NORMAL - Normal successful completion." 
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write sys$output 
write sys$output ‘'NOMSG - Messsage cannot be resolved from status code." 
write sysS$output "' Specify IDENTIFICATION text explicitly.'’S exit 
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output Puarning - superfluous extra arguments being ignored." 
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